-- card: 4163 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2777
-- name: setUpUser


-- part 3 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=192 top=88 right=106 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: firstname


-- part 5 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=192 top=103 right=121 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: lastname


-- part 7 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=192 top=134 right=152 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: password


-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=2 top=88 right=151 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 11 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=144 top=207 right=229 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Baud Rate
----- HyperTalk script -----
on mouseUp
  answer "What baud rate?" with "300" or "1200" or "2400"
  if it="300" then
    put"19756" into line 2 of field 1
  else
    if it="1200" then
      put "19550" into line 2 of field 1
    else
      put "19502" into line 2 of field 1
    end if
  end if
end mouseup


-- part 12 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=246 top=207 right=229 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Set Your Port
----- HyperTalk script -----
on mouseUp
  answer "Which port?" with "Printer" or "Modem"
  if it="Printer" then put "2" into line 1 of field 1
  else put "1" into line 1 of field 1
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=390 top=300 right=322 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done!
----- HyperTalk script -----
on mouseUp
  global stuff,number
  put " " into line 3 of field 1
  put line 6 of field 1 into number
  put card field 1 into line 3 of field 1
  put card field 2 into line 4 of field 1
  put card field 3 into line 5 of field 1
  put empty into line 7 of field 1
  get card field 3
  put length of it into lenny
  put empty into card field 3
  repeat lenny
    put "*" after card field 3
  end repeat
  put line 1 of field 1 into port
  put line 2 of field 1 into rate
  resetSPort port,rate
  set lockscreen to true
  push card
  go to card 1
  pop card
  get field 1
  put it into stuff
  set lockscreen to false
  go to card 1
  put stuff into field 1 of card 1
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=192 top=153 right=172 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Local Ottawa (613)
----- HyperTalk script -----
on mouseUp
  if hilite of button "Outside Ottawa (in 613)" then set hilite of button "Outside Ottawa (in 613)" to false
  if hilite of button "Long distance (outside 613)" then set hilite of button "Long distance (outside 613)" to false
  if hilite of target then put "2336262" into line 6 of field 1
  else put empty into line 6 of field 1
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=192 top=172 right=189 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outside Ottawa (in 613)
----- HyperTalk script -----
on mouseUp
  if hilite of button "Local Ottawa (613)" then set hilite of button "Local Ottawa (613)" to false
  if hilite of button "Long distance (outside 613)" then set hilite of button "Long distance (outside 613)" to false
  if hilite of target then put "12336262" into line 6 of field 1
  else put empty into line 6 of field 1
end mouseUp



-- part 17 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=145 top=233 right=300 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 18 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=192 top=188 right=206 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Long distance (outside 613)
----- HyperTalk script -----
on mouseUp
  if hilite of button "Outside Ottawa (in 613)" then set hilite of button "Outside Ottawa (in 613)" to false
  if hilite of button "Local Ottawa (613)" then set hilite of button "Local Ottawa (613)" to false
  if hilite of target then put "16132336262" into line 6 of field 1
  else put empty into line 6 of field 1
end mouseUp



-- part contents for card part 8
----- text -----
Enter your first name:
Enter your last name:
Enter the password you wish to use (at least 5 letters):

-- part contents for background part 4
----- text -----
Wed, Sep 28, 1988

-- part contents for background part 3
----- text -----
Fri, Jul 8, 1988, 4:07 PM

-- part contents for background part 1
----- text -----
1
19502



2336262


-- part contents for card part 17
----- text -----
WARNING: The password field must display your password (not "*"'s) !!!!!
If you re-enter this window you must re-enter your password.  You will not be logged on correctly if you do not do so!!!!!